home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Network Login Scr 1.xpl < prev    next >
Text File  |  2002-07-10  |  2KB  |  48 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="1"
  3. "COUNT"="1"
  4. "UIPATH 1"="Startup/Shutdown\Startup\Windows NT/2K/XP\30) Before Login Window"
  5. "NAME"="Screensaver: Name"
  6. "VERSION"="1.01"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Screensaver"
  9. "OSVERSION"="0101011"
  10. "DESCRIPTION 1"="This plug-in can be used to configure the screensaver that is used while the login window is active (as long as no user is logged in)."
  11. "DESCRIPTION 2"="By default, the name is "logon.scr" but you can use "ssstars.scr" (Starfield Simulation), "ssflwbox.scr" (3D Objects) etc."
  12. "DESCRIPTION 3"="If you are unsure which screensaver you should use, simply use the Start -> Find command to search for "*.scr" files in your Windows folder (C:\WINDOWS or C:\WINNT) and double-click each file that will be found. Once you found a file that suits you, simply enter it here."
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com/"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"="Thanks to ckkitchen@telus.net [xpatriot@hotmail.com] for the idea!"
  17.  
  18.  
  19.  sP="HKEY_USERS\.DEFAULT\Control Panel\Desktop\SCRNSAVE.EXE"
  20. sP2="HKEY_USERS\.DEFAULT\Control Panel\Desktop\ScreenSaveActive"
  21.  
  22. Sub Plugin_Initialize 
  23.  s=RegReadValue(sP) 
  24.  Call SetUIElement(1,s)
  25. End Sub
  26.  
  27. Sub Plugin_CheckData(ElementIndex)
  28. End Sub
  29.  
  30. Sub Plugin_Apply(ElementIndex,ElementSubIndex) 
  31.  s1=GetUIElement(1)
  32.  if len(s1)>4 then
  33.     Call RegWriteValue(sP,s1,1)
  34.     'make sure it's activated   
  35.     Call RegWriteValue(sP2,"1",1)
  36.   else
  37.     Call MsgError("Please enter the name of the screensaver that should be used")
  38.  end if
  39.  
  40.  Call Logoff()
  41. End Sub
  42.  
  43. Sub Plugin_Terminate 
  44. End Sub
  45.  
  46.  
  47.  
  48.